home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / buntes muster (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  47 lines
  1. 100 GOSUB60000:SYS49466
  2. 110 SYS49492,0,7,10,14
  3. 115 F=1:K=50:L=7
  4. 116 FORQ=1TO20
  5. 120 FORX=0TO159STEP.3
  6. 130 Y=K+SIN(X/L)*(X/3):IFY>0ANDY<199THENSYS49607,F,X,Y
  7. 140 NEXTX:F=F+1:IFF>3THENF=1
  8. 145 K=K+4:L=L-.2
  9. 150 NEXTQ
  10. 155 GETA$:IFA$<>" "THEN155
  11. 160 F1=7:F2=10:F3=14
  12. 170 SYS49492,0,F2,F3,F1:GOSUB300
  13. 180 SYS49492,0,F3,F1,F2:GOSUB300
  14. 190 SYS49492,0,F1,F2,F3:GOSUB300
  15. 200 GETA$:IFA$=" "THENGOSUB60300:END
  16. 210 GOTO170
  17. 300 FORQ=1TO25:NEXTQ:RETURN
  18. 59997 REM
  19. 59998 REM *** MULTI-GRAFIK EINSCHALTEN ***
  20. 59999 REM
  21. 60000 POKE 53265, PEEK(53265) OR 2^5:REM HIRES EIN
  22. 60010 POKE 53270, PEEK(53270) OR 2^4:REM MULTICOLOR EIN
  23. 60020 POKE 53272, PEEK(53272) OR 2^3:REM GRAFIKSPEICHER AUF 8192
  24. 60030 RETURN
  25. 60100 FORQ=8192TO16191:POKEQ,0:NEXTQ
  26. 60110 RETURN
  27. 60195 REM
  28. 60196 REM *** MULTI-FARBEN SETZTEN ***
  29. 60197 REM
  30. 60198 REM F0,F1,F2,F3 = FARBEN 0 BIS 3
  31. 60199 REM
  32. 60200 POKE53281,F0
  33. 60210 FW=F2*16+F1:REM HI/LO-NIBBLE ZUSAMMENFASSEN
  34. 60220 FORQ=1024TO2023
  35. 60230 POKEQ,FW:NEXTQ
  36. 60240 FORQ=55296TO56295
  37. 60250 POKEQ,F3:NEXTQ
  38. 60260 RETURN
  39. 60297 REM
  40. 60298 REM *** MULTI-GRAFIK AUSSCHALTEN ***
  41. 60299 REM
  42. 60300 POKE 53265,PEEK(53265) AND (255-2^5):REM HIRES AUS
  43. 60310 POKE 53270,PEEK(53270) AND (255-2^4):REM MULTICOLOR AUS
  44. 60320 POKE 53272,PEEK(53272) AND (255-2^3):REM GRAFIKSPEICHER ZURUECKSETZEN
  45. 60330 PRINT"[147]":RETURN
  46. 60997 REM
  47.